home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
basic
/
digclk12.zip
/
OPTIONS.FRM
< prev
next >
Wrap
Text File
|
1994-09-27
|
10KB
|
316 lines
VERSION 2.00
Begin Form frmoptions
BorderStyle = 1 'Fixed Single
ClientHeight = 4455
ClientLeft = 2115
ClientTop = 1770
ClientWidth = 4695
ControlBox = 0 'False
Height = 4890
Left = 2040
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 540
ScaleWidth = 540
Top = 1410
Width = 4845
Begin SSPanel Panel3D1
BevelInner = 1 'Inset
BevelWidth = 2
Height = 4455
Left = 0
TabIndex = 7
Top = 0
Width = 4695
Begin SSPanel Panel3D6
BevelWidth = 2
Height = 1335
Left = 2400
TabIndex = 17
Top = 2880
Width = 2055
Begin CommandButton cmdOk
Cancel = -1 'True
Caption = "E&xit"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
Index = 1
Left = 240
TabIndex = 18
Top = 690
Width = 1575
End
Begin CommandButton cmdOk
Caption = "&Ok"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
Index = 0
Left = 240
TabIndex = 6
Top = 120
Width = 1575
End
End
Begin SSPanel Panel3D5
BevelWidth = 2
Height = 1335
Left = 240
TabIndex = 16
Top = 2880
Width = 2055
Begin SSCheck chkSeconds
Caption = "Show Seconds"
Height = 255
Left = 150
TabIndex = 5
Top = 720
Width = 1695
End
Begin SSCheck chkOnTop
Caption = "On Top"
Height = 255
Left = 120
TabIndex = 4
Top = 240
Width = 1575
End
End
Begin SSPanel Panel3D4
BevelWidth = 2
Height = 855
Left = 2400
TabIndex = 15
Top = 1920
Width = 2055
Begin SSOption optColor
Caption = "Red Clock Face"
Height = 255
Index = 0
Left = 120
TabIndex = 2
Top = 120
Width = 1815
End
Begin SSOption optColor
Caption = "Green Clock Face"
Height = 255
Index = 1
Left = 120
TabIndex = 3
Top = 480
Width = 1815
End
End
Begin SSPanel Panel3D3
BevelWidth = 2
Height = 855
Left = 240
TabIndex = 14
Top = 1920
Width = 2055
Begin SSOption optTimeFormat
Caption = "12 - Hour"
Height = 255
Index = 0
Left = 120
TabIndex = 0
Top = 120
Width = 1335
End
Begin SSOption optTimeFormat
Caption = "24 - Hour"
Height = 255
Index = 1
Left = 120
TabIndex = 1
Top = 480
Width = 1335
End
End
Begin SSPanel Panel3D2
BevelOuter = 1 'Inset
BevelWidth = 2
Height = 1455
Left = 600
TabIndex = 8
Top = 360
Width = 3495
Begin Label Label5
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "dbrodie@nbnet.nb.ca"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Times New Roman"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00FF0000&
Height = 315
Left = 120
TabIndex = 10
Top = 720
Width = 3255
End
Begin Label Label4
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "September 28, 1994"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Times New Roman"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 255
Left = 1680
TabIndex = 11
Top = 1200
Width = 1695
End
Begin Label Label3
BackStyle = 0 'Transparent
Caption = "Version: 1.2"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Times New Roman"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 255
Left = 120
TabIndex = 12
Top = 1200
Width = 1095
End
Begin Label Label2
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "By: Damon Brodie"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Times New Roman"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00FF0000&
Height = 255
Left = 120
TabIndex = 13
Top = 480
Width = 3255
End
Begin Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "DigiClock"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Times New Roman"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00FF0000&
Height = 375
Left = 120
TabIndex = 9
Top = 120
Width = 3255
End
End
End
End
Option Explicit
Sub cmdExit_Click ()
Unload Me
Unload frmClock
End Sub
Sub cmdOk_Click (Index As Integer)
Dim Success%
Dim Temp
Dim TempString As String
If chkOnTop.Value Then
Success% = SetWindowPos(frmClock.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
OnTop = 1
Else
Success% = SetWindowPos(frmClock.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS)
OnTop = 0
End If
If optColor(0).Value Then
frmClock.picNumbers.Picture = frmClock.imgRed.Picture
ClockColor = 0
Else
frmClock.picNumbers.Picture = frmClock.imgGreen.Picture
ClockColor = 1
End If
If optTimeFormat(0).Value Then
TimeFormat = 12
Else
TimeFormat = 24
End If
If chkSeconds.Value Then
frmClock.picClock.Width = 2505
frmClock.pnlClock.Width = 2730
frmClock.Width = 2765
' Turn on the colons.
frmClock.imgNum(2).Picture = frmClock.picNumbers.GraphicCell(10)
frmClock.imgNum(5).Picture = frmClock.picNumbers.GraphicCell(10)
SecondsOn = 1
Else
frmClock.picClock.Width = 1560
frmClock.pnlClock.Width = 1770
frmClock.Width = 1800
SecondsOn = 0
End If
OldTime = ""
If Index = 0 Then
Me.Hide
Else
Unload Me
Unload frmClock
End If
End Sub
Sub Form_Load ()
CenterForm frmOptions
If OnTop Then
chkOnTop.Value = True
End If
If ClockColor = 0 Then
optColor(0).Value = 1
Else
optColor(1).Value = 1
End If
If TimeFormat = 12 Then
optTimeFormat(0).Value = 1
Else
optTimeFormat(1).Value = 1
End If
If SecondsOn Then
chkSeconds.Value = 1
Else
chkSeconds.Value = 0
End If
End Sub
Sub optColor_Click (Index As Integer, Value As Integer)
ClockColor = Index
End Sub